use Modern::Perl;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

use constant ACLASS => 192;  # A class of the IP assigned by DHCP

sub getip {
	local $_ = `ipconfig`;
	return (/(?<ipaddr>${\(ACLASS)}\.\d{0,3}\.\d{0,3}\.\d{0,3})/) ? $+{ipaddr} : "-1";
}
my $user = "ofir";
my $pass = "1111";
my $url = "https://localhost/xampp/1.pl";

my $ua = LWP::UserAgent->new;
my $reqstr = (POST $url, 
["user" => $user, 
"pass" => $pass]);

# send request
my $request = $ua->request($reqstr);
my $content = $request->content; 

print $content;